home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 July
/
1994-07b.d64
/
screen zap
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
245b
|
12 lines
100 data 32,228,255,201,0,240,249
110 data 162,0,157,0,4,157,0,5
120 data 157,0,6,157,0,7,232,208,241
130 data 201,32,208,228,96
200 for j=8192 to 8220
210 read x:t=t+x
220 poke j,x
230 next j
240 if t<>3463 then stop
300 print "[147][208]ress any key; space bar to stop"
310 sys 8192